home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / D-F / FSP Macropedia < prev   
Encoding:
Text File  |  1988-11-12  |  4.5 KB  |  75 lines  |  [TEXT/MACA]
  1. * Sample of MACropoedia BBS's FSP Control file
  2. * MACropoedia may be accessed at 312-295-6926 at 1200 or 2400 baud
  3. *
  4. * For purposes of brevity FSL means a file section listing.
  5. *
  6. CLEAR                                     ;Clear memory
  7. *
  8. * Define a process to be repeated
  9. *
  10. DEFINEMACRO "ProcSection"     ;name it "ProcSection"
  11. LOAD "@1"                     ;load the file section named @1. @1 is a wild card as used here.
  12. DELETE/AGE "365"              ;mark for deletion all files oveer 365 days old
  13. CHECK/PATH                    ;check path of all entries to make sure the underlying
  14. *                             ;file is still there. Mark for deletion those that are not.
  15. PURGE/DELETE                  ;Purge removes files from section where marked for deletion.
  16. *                             ;Delete sends files to trash can when marked for deletion.
  17. SORT/TITLE                    ;Sort remaining listings by Title
  18. SAVE "@1"                     ;Save file section back using proper section name
  19. ENDMACRO                      ;Defines end of procedure
  20. *
  21. DEFINE "WHERE" "HD:RRH"                       ;Defines "Where" to be path to the FSL
  22. ProcSection  "WHERE:BIBFOLDER:DLBIB"          ;Begin processing file section DLBIB
  23. ProcSection  "WHERE:BIZFOLDER:DLBIZ"          ;Then processes file section DLBIZ, etc.
  24. ProcSection  "WHERE:DAFOLDER:DLDA'S"          ;Each section is processed separately. First loading
  25. ProcSection  "WHERE:FKEYFOLDER:DLFKEYS"       ;memory with the names of all files listed in that
  26. ProcSection  "WHERE:FONTSFOLDER:DLFONTS"      ;section. Then deleting those over 365 days old.
  27. ProcSection  "WHERE:GAMESFOLDER:DLGAMES"      ;FSP then checks each listing to assure the path to the
  28. ProcSection  "WHERE:GIFFOLDER:DLGIF"          ;underlying file matches that of the FSL.
  29. ProcSection  "WHERE:HYPERFOLDER:DLHC"         ;Any file listing marked for deletion is removed from
  30. ProcSection  "WHERE:MACIIFOLDER:DLMACII"      ;the listing. Any file referenced for deletion is removed
  31. ProcSection  "WHERE:MAGFOLDER:DLMAG"          ;from the drive (disk). Files are then sorted by title and
  32. ProcSection  "WHERE:MUSICFOLDER:DLMUSIC"      ;the file section is written back to where it came from.
  33. ProcSection  "WHERE:PICFOLDER:DLPIC"          ;The new file section appears sorted by title and all
  34. ProcSection  "WHERE:SSFOLDER:DLSS"            ;path names are correct. This prevents the unsightly
  35. ProcSection  "WHERE:TERMFOLDER:DLTC"          ;"file not found" error from being sent to a caller.
  36. ProcSection  "WHERE:UTILFOLDER:DLUTIL"        ;It also allows Sysop to trash a file from the desktop
  37. ProcSection  "WHERE:VAFOLDER:DLVIDEO"         ;and, when running FSP, automatically remove the
  38. ProcSection  "WHERE:TopFOLDER:DLTop"          ;reference to the file in the FSL.
  39. *
  40. CLEAR                                ;clear memory
  41. *
  42. DEFINE "WHERE" "HD:rrh"              ;Defines "Where" to be path to the FSL.
  43. ADD  "WHERE:BIBFOLDER:DLBIB"         ;Start a new routine where we add to memory all the file
  44. ADD  "WHERE:BIZFOLDER:DLBIZ"         ;listing from all of the sections.
  45. ADD  "WHERE:CEFOLDER:DLCE"
  46. ADD  "WHERE:DAFOLDER:DLDA'S"
  47. ADD  "WHERE:FKEYFOLDER:DLFKEYS"
  48. ADD  "WHERE:FONTSFOLDER:DLFONTS"
  49. ADD  "WHERE:GAMESFOLDER:DLGAMES"
  50. ADD  "WHERE:GIFFOLDER:DLGIF"
  51. ADD  "WHERE:HYPERFOLDER:DLHC"
  52. ADD  "WHERE:MACIIFOLDER:DLMACII"
  53. ADD  "WHERE:MAGFOLDER:DLMAG"
  54. ADD  "WHERE:MUSICFOLDER:DLMUSIC"
  55. ADD  "WHERE:PICFOLDER:DLPIC"
  56. ADD  "WHERE:SSFOLDER:DLSS"
  57. ADD  "WHERE:TERMFOLDER:DLTC"
  58. ADD  "WHERE:UTILFOLDER:DLUTIL"       ;When done, all files in all section will be contained
  59. ADD  "WHERE:VAFOLDER:DLVIDEO"        ;in memory.
  60. *
  61. FORMAT "TITLE+SECT:12+SIZEK+DATE+UPLDR+CR:0+DESCA"  ;Define a format for listings to be created.
  62. SORT/TITLE                                          ;Sort all files in memory by name.
  63. SAVE "WHERE:ALPHAFOLDER:DLALPHA"                    ;Save this new FSL in one alphabetically sorted FSL 
  64. SAVETEXT/Format "WHERE:TXT:List Of All Files"       ;Save a text file of the whole list using the format
  65. *                                                   ;defined earlier.
  66. SORT/DATE                                           ;Resort memory by date
  67. SAVE "WHERE:LATESTFOLDER:LATEST"                    ;Save as a chronological FSL
  68. DELETE/AGE "10"                                     ;Mark all listings from memory >10 days old
  69. PURGE                                               ;Remove all marked listings from memory.
  70. SAVETEXT/Format "WHERE:System3.msg"                 ;Save a text file for display at logon.
  71. *
  72. Launch "HD:RRH:RR Host"                             ;Launch Host
  73. *
  74.